COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "HACK"
C00005 ENDMK
C⊗;
BEGIN "HACK"
	REQUIRE "GEOMES.HDR[SAI,BGB]" SOURCE_FILE;
	DEFINE π="3.1415927";
	INTEGER B1,I;
	MKUNIV;

	B1 ← INB3D("JACK[DAT,BGB]");

FOR I←1 STEP 1 UNTIL 15 DO
BEGIN
	TRANSL(B1,0.1,0.2,-0.2);
	ROTATE(B1,0.14,0.03,-0.02);
	GEODPY;
	PLOTO("QQ."&CVS(I));
END;
END "HACK";